#!usr/bin/perl 

use strict;

die "usage:perl $0 <muscle out.info> \n" unless @ARGV == 1;

open A,$ARGV[0]; 
my %all;    my %res;	my %h;
while(my $inf=<A>){
	chomp $inf;my @a=split /\s+/,$inf;
	next if($inf=/^\s+/);
	next if(@a != 2);
	next if($a[0]!~/\w+/);
	$h{$a[0]}=$h{$a[0]}.$a[1];
	$res{$all{$a[0]}}=$res{$all{$a[0]}}.$a[1];
}
close A;

foreach my $k1(sort keys %h){
	print ">$k1\n$h{$k1}\n";
}
